home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / HyperCard Goodies / Serial Toolkit / Source Code / HyperXCmd.p < prev    next >
Text File  |  1988-11-18  |  1KB  |  60 lines
  1. UNIT HyperXCmd;
  2.  
  3. INTERFACE
  4.  
  5. CONST
  6.   
  7.   { result codes }
  8.   xresSucc     = 0;
  9.   xresFail     = 1;
  10.   xresNotImp     = 2;
  11.   
  12.   { request codes }
  13.   xreqSendCardMessage    = 1;
  14.   xreqEvalExpr        = 2;
  15.   xreqStringLength    = 3;
  16.   xreqStringMatch    = 4;
  17.  
  18.   xreqZeroBytes         = 6;
  19.   xreqPasToZero        = 7;
  20.   xreqZeroToPas        = 8;
  21.   xreqStrToLong        = 9;
  22.   xreqStrToNum        = 10;
  23.   xreqStrToBool        = 11;
  24.   xreqStrToExt        = 12;
  25.   xreqLongToStr        = 13;
  26.   xreqNumToStr        = 14;
  27.   xreqNumToHex        = 15;
  28.   xreqBoolToStr        = 16;
  29.   xreqExtToStr        = 17;
  30.   xreqGetGlobal        = 18;
  31.   xreqSetGlobal        = 19;
  32.   xreqGetFieldByName    = 20;
  33.   xreqGetFieldByNum    = 21;
  34.   xreqGetFieldByID    = 22;
  35.   xreqSetFieldByName    = 23;
  36.   xreqSetFieldByNum    = 24;
  37.   xreqSetFieldByID    = 25;
  38.   xreqStringEqual       = 26;
  39.   xreqReturnToPas       = 27;
  40.   xreqScanToReturn      = 28;
  41.   xreqScanToZero        = 39;
  42.  
  43. TYPE
  44.  
  45.   XCmdPtr = ^XCmdBlock;
  46.   XCmdBlock =
  47.     RECORD
  48.       paramCount:  INTEGER;     
  49.       params:      ARRAY[1..16] OF Handle;
  50.       returnValue: Handle;      
  51.       passFlag:    BOOLEAN; 
  52.       
  53.       entryPoint:  ProcPtr;    { to call back to HyperCard }
  54.       request:     INTEGER;  
  55.       result:      INTEGER;  
  56.       inArgs:      ARRAY[1..8] OF LongInt;
  57.       outArgs:     ARRAY[1..4] OF LongInt;
  58.     END;
  59.     
  60. END;